home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Advanced W217506262001.psc / Form2.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-06-26  |  5.5 KB  |  169 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Secure me (+) 3.1 Options"
  5.    ClientHeight    =   3495
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   5910
  9.    Icon            =   "Form2.frx":0000
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3495
  14.    ScaleWidth      =   5910
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Close Options"
  18.       Height          =   375
  19.       Left            =   4080
  20.       TabIndex        =   12
  21.       Top             =   3000
  22.       Width           =   1695
  23.    End
  24.    Begin VB.Frame Frame3 
  25.       Caption         =   "Disconnect times."
  26.       Height          =   855
  27.       Left            =   120
  28.       TabIndex        =   8
  29.       Top             =   2040
  30.       Width           =   5655
  31.       Begin VB.TextBox Text3 
  32.          Height          =   285
  33.          Left            =   2160
  34.          TabIndex        =   14
  35.          Text            =   "1"
  36.          Top             =   480
  37.          Width           =   615
  38.       End
  39.       Begin VB.TextBox Text1 
  40.          Height          =   285
  41.          Left            =   2880
  42.          TabIndex        =   10
  43.          Text            =   "20"
  44.          Top             =   220
  45.          Width           =   615
  46.       End
  47.       Begin VB.Label Label4 
  48.          Alignment       =   1  'Right Justify
  49.          Caption         =   "Second(s)."
  50.          Height          =   255
  51.          Left            =   2760
  52.          TabIndex        =   15
  53.          Top             =   525
  54.          Width           =   855
  55.       End
  56.       Begin VB.Label Label3 
  57.          Caption         =   "Disconnect all other ports in"
  58.          Height          =   255
  59.          Left            =   120
  60.          TabIndex        =   13
  61.          Top             =   525
  62.          Width           =   2055
  63.       End
  64.       Begin VB.Label Label2 
  65.          Alignment       =   1  'Right Justify
  66.          Caption         =   "Second(s)."
  67.          Height          =   255
  68.          Left            =   3480
  69.          TabIndex        =   11
  70.          Top             =   240
  71.          Width           =   825
  72.       End
  73.       Begin VB.Label Label1 
  74.          Caption         =   "Disconnect connections on port 23 in"
  75.          Height          =   255
  76.          Left            =   120
  77.          TabIndex        =   9
  78.          Top             =   240
  79.          Width           =   2775
  80.       End
  81.    End
  82.    Begin VB.Frame Frame2 
  83.       Caption         =   "Standerd Options"
  84.       Height          =   855
  85.       Left            =   120
  86.       TabIndex        =   4
  87.       Top             =   120
  88.       Width           =   5655
  89.       Begin VB.CheckBox Check1 
  90.          Caption         =   "Send Intruder Message:"
  91.          Height          =   285
  92.          Left            =   120
  93.          TabIndex        =   6
  94.          Top             =   480
  95.          Value           =   1  'Checked
  96.          Width           =   2055
  97.       End
  98.       Begin VB.TextBox Text2 
  99.          Height          =   285
  100.          Left            =   2160
  101.          TabIndex        =   5
  102.          Text            =   "You do not have permission to access this service and are being reported to your ISP for malicious activatie."
  103.          Top             =   480
  104.          Width           =   3315
  105.       End
  106.       Begin VB.CheckBox Check2 
  107.          Caption         =   "Send me a visual alert when a intruder tries to connect to my computer."
  108.          Height          =   285
  109.          Left            =   120
  110.          TabIndex        =   7
  111.          Top             =   240
  112.          Width           =   5415
  113.       End
  114.    End
  115.    Begin VB.Frame Frame1 
  116.       Caption         =   "Advanced Options - Hard log only!"
  117.       Height          =   1095
  118.       Left            =   120
  119.       TabIndex        =   0
  120.       Top             =   960
  121.       Width           =   5655
  122.       Begin VB.CheckBox Check5 
  123.          Caption         =   "If Telnet port is open. Fake linux server with root@local"
  124.          Height          =   255
  125.          Left            =   120
  126.          TabIndex        =   3
  127.          Top             =   720
  128.          Value           =   1  'Checked
  129.          Width           =   5055
  130.       End
  131.       Begin VB.CheckBox Check4 
  132.          Caption         =   "Ping there IP when they connect and find out there delay."
  133.          Height          =   255
  134.          Left            =   120
  135.          TabIndex        =   2
  136.          Top             =   480
  137.          Width           =   4935
  138.       End
  139.       Begin VB.CheckBox Check3 
  140.          Caption         =   "Resolve Hostname using there IP when they connect."
  141.          Height          =   255
  142.          Left            =   120
  143.          TabIndex        =   1
  144.          Top             =   240
  145.          Value           =   1  'Checked
  146.          Width           =   5055
  147.       End
  148.    End
  149. Attribute VB_Name = "Form2"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Private Sub Command1_Click()
  155. Form1.Enabled = True
  156. Form2.Enabled = False
  157. Form2.Visible = False
  158. End Sub
  159. Private Sub Form_Terminate()
  160. Form1.Enabled = True
  161. Form2.Enabled = False
  162. Form2.Visible = False
  163. End Sub
  164. Private Sub Form_Unload(Cancel As Integer)
  165. Form1.Enabled = True
  166. Form2.Enabled = False
  167. Form2.Visible = False
  168. End Sub
  169.